(:*******************************************************:)
(:Test: op-numeric-unary-minuspint1args-1                 :)
(:Written By: Carmelo Montanez                            :)
(:Date: Thu Dec 16 10:48:16 GMT-05:00 2004                :)
(:Purpose: Evaluates The "op:numeric-unary-minus" operator:)
(: with the arguments set as follows:                    :)
(:$arg = xs:positiveInteger(lower bound)                 :)
(:*******************************************************:)

-(xs:positiveInteger("1"))